# Plotting NDR for Majority
    (palette(gray(seq(0,.8,len=6))))

    postscript("r2n09.ndr.ps", paper="special", width=7, height=5,horizontal=F)
    # Main trend
    plot(r2n09.como$objf[,1],type="l",ylim=c(0,1),xlab="Generation",ylab="")
    lines(r2n09.mo.ndr$Sol,lty=2, col=2)
    # Legend
    legend(100,0.3,c("OF","NDR"),lty=c(1,2),col=c(1,2))
    title("Best Objective Fitness and Non-Dominated Ratio")
    dev.off()
    
